unit rules;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, dialogs, configuration;

type

TRule = class

  Window   : String;
  Process : String;
  Logic : String;
  IdTask: Integer;

  constructor Create(cWindow: String; cProcess   : String; cLogic: String;  cIdTask : Integer);
end;

implementation


constructor TRule.Create ( cWindow: String; cProcess : String; cLogic: String; cIdTask : Integer);
begin
 self.Window := cWindow;
 self.Process := cProcess;
 self.Logic := cLogic;
 self.IdTask := cIdTask;

end;

end.

